home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 313
- Top = 163
- Width = 631
- Height = 452
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Menu = MainMenu
- Position = poDefaultPosOnly
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 16
- object Panel1: TPanel
- Left = 0
- Top = 387
- Width = 623
- Height = 19
- Align = alBottom
- Alignment = taLeftJustify
- BevelInner = bvLowered
- BevelOuter = bvNone
- TabOrder = 0
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 623
- Height = 33
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 1
- object Edit1: TEdit
- Left = 190
- Top = 4
- Width = 337
- Height = 24
- TabStop = False
- ReadOnly = True
- TabOrder = 3
- end
- object ReloadButton: TButton
- Left = 10
- Top = 4
- Width = 59
- Height = 24
- Caption = '&Reload'
- Enabled = False
- TabOrder = 0
- OnClick = ReloadButtonClick
- end
- object BackButton: TButton
- Left = 69
- Top = 4
- Width = 59
- Height = 24
- Caption = '&Back'
- Enabled = False
- TabOrder = 1
- OnClick = FwdBackClick
- end
- object FwdButton: TButton
- Left = 128
- Top = 4
- Width = 59
- Height = 24
- Caption = '&Forward'
- Enabled = False
- TabOrder = 2
- OnClick = FwdBackClick
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 33
- Width = 623
- Height = 354
- Align = alClient
- BevelInner = bvLowered
- BevelOuter = bvNone
- Caption = 'Panel3'
- TabOrder = 2
- object Viewer: ThtmlLite
- Left = 1
- Top = 1
- Width = 621
- Height = 352
- Cursor = 2
- OnHotSpotCovered = HotSpotChange
- OnHotSpotClick = HotSpotClick
- OnFormSubmit = SubmitEvent
- OnHistoryChange = HistoryChange
- TabStop = True
- TabOrder = 0
- Align = alClient
- DefBackground = clWhite
- BorderStyle = htFocused
- HistoryMaxCount = 0
- DefFontName = 'Times New Roman'
- DefPreFontName = 'Courier New'
- NoSelect = False
- htOptions = []
- OnMouseMove = ViewerMouseMove
- OnProcessing = ProcessingHandler
- OnInclude = ViewerInclude
- OnSoundRequest = SoundRequest
- OnMetaRefresh = MetaRefreshEvent
- OnObjectClick = ObjectClick
- OnRightClick = RightClick
- object MediaPlayer: TMediaPlayer
- Left = 308
- Top = 40
- Width = 253
- Height = 30
- Visible = False
- TabOrder = 3
- OnNotify = MediaPlayerNotify
- end
- end
- end
- object OpenDialog: TOpenDialog
- DefaultExt = 'htm'
- FileEditStyle = fsEdit
- Filter = 'html files|*.htm;*.html|all files|*.*'
- Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
- Left = 393
- Top = 2
- end
- object MainMenu: TMainMenu
- Left = 355
- Top = 4
- object File1: TMenuItem
- Caption = '&File'
- ShortCut = 0
- object Open: TMenuItem
- Caption = '&Open'
- ShortCut = 114
- OnClick = OpenFileClick
- end
- object OpenTextFile: TMenuItem
- Caption = 'Open &Text File'
- ShortCut = 0
- OnClick = OpenTextFileClick
- end
- object OpenImageFile: TMenuItem
- Caption = 'Open &Image File'
- ShortCut = 0
- OnClick = OpenImageFileClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- ShortCut = 0
- OnClick = Exit1Click
- end
- end
- object Edit2: TMenuItem
- Caption = '&Edit'
- ShortCut = 0
- OnClick = Edit2Click
- object Find1: TMenuItem
- Caption = '&Find'
- Enabled = False
- ShortCut = 0
- OnClick = Find1Click
- end
- object CopyItem: TMenuItem
- Caption = '&Copy'
- ShortCut = 16451
- OnClick = CopyItemClick
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object SelectAllItem: TMenuItem
- Caption = 'Select &All'
- Enabled = False
- ShortCut = 0
- OnClick = SelectAllItemClick
- end
- end
- object options1: TMenuItem
- Caption = '&Options'
- ShortCut = 0
- object ShowImages: TMenuItem
- Caption = '&Show images'
- ShortCut = 0
- OnClick = ShowImagesClick
- end
- object Fonts: TMenuItem
- Caption = 'Default &Font/Colors...'
- ShortCut = 0
- OnClick = FontColorsClick
- end
- end
- object HistoryMenuItem: TMenuItem
- Caption = '&History'
- ShortCut = 0
- Visible = False
- end
- object About1: TMenuItem
- Caption = '&About'
- ShortCut = 0
- OnClick = About1Click
- end
- end
- object FindDialog: TFindDialog
- Options = [frDown, frHideWholeWord, frHideUpDown, frDisableUpDown, frDisableWholeWord]
- OnFind = FindDialogFind
- Left = 313
- Top = 65535
- end
- object PopupMenu: TPopupMenu
- Left = 480
- Top = 1
- object Viewimage: TMenuItem
- Caption = '&View image'
- ShortCut = 0
- OnClick = ViewimageClick
- end
- object CopyImageToClipboard: TMenuItem
- Caption = '&Copy image to clipboard'
- ShortCut = 0
- OnClick = CopyImageToClipboardClick
- end
- object N3: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object OpenInNewWindow: TMenuItem
- Caption = '&Open in new window'
- ShortCut = 0
- OnClick = OpenInNewWindowClick
- end
- end
- object MetaTimer: TTimer
- Enabled = False
- OnTimer = MetaTimerTimer
- Left = 242
- Top = 3
- end
- object Timer1: TTimer
- Interval = 200
- OnTimer = Timer1Timer
- Left = 179
- Top = 119
- end
- end
-